home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PAS_0693 / SHOWTDRW.PAS < prev    next >
Pascal/Delphi Source File  |  1993-06-30  |  680b  |  27 lines
  1. Program Display_Pix_File;
  2.  
  3. Uses Dos, Crt;
  4.  
  5. TYPE
  6.   ScrType  = Array[0..3999] of Byte;
  7.  
  8. VAR
  9.   f        : file;
  10.   Buffer   : Array[0..3999] Of Byte;
  11.   Scrn     : ScrType ABSOLUTE $b800:0000;  (* Color Screen, non mono *)
  12.  
  13. BEGIN
  14.   Assign(f, ParamStr(1));  (* pass pix file on cmdline *)
  15.   Reset(f,1);
  16.   BlockRead(f, Buffer, 4000);
  17.   Close(f);
  18.   Move(Buffer, Scrn, 4000);
  19.   ReadKey;
  20. END.
  21.  
  22. ===
  23.  
  24.    There is very little errorchecking.. But that's the basic idea, and it works
  25. nicely I might add..  You could combine the screens in one big picture file as 
  26. well, with titles, markers, sizes, etc. to offset each one in the file.. then
  27. just seek to it, and wham..